5 IFJG=0THENJG=1:GOSUB5000
6 DV=PEEK(186):IFDV<8THENDV=8
100 IFML=1THEN300
110 IFML=2THEN320
120 IFML=8THEN1210
130 MZ=7:OO$="[147]":GOTO1160
140 REM
150 DIMW(99,2):LV=3:PRINT"[147][152]";
160 W(4,1)=33:W(4,2)=5:FORB=6TO13:W(B,1)=21:W(B,2)=55:NEXT
170 W(82,1)=129:W(82,2)=250:W(50,1)=129:W(50,2)=250
180 W(99,1)=21:W(99,2)=250:SL$="                                       "
190 W(1,1)=17:W(1,2)=50:F$="MAZE  1":GOSUB2000:PN=1
200 W(3,1)=65:W(3,2)=15:W(5,1)=85:W(5,2)=30:W(26,1)=129:W(26,2)=25
210 X=2:Y=1:CL=13:CH=82:ML=.
220 POKE53281,12:POKE53280,12:D=.:X1=.:X2=.:X3=.:OK=.:ML=.
230 OO$="[147]"
240 IFJP=MZTHEN1040
250 FORT=54272TO54295:POKET,0:NEXT:POKE54296,15:IFLV>3THENLV=3
260 AD=1*16+0:SR=15*16+2
270 POKE54284,AD:POKE54285,SR:POKE54282,0:POKE54281,255
280 POKE53281,76
290 IFML=.THENML=1:LOAD F$+".ML",DV,1
300 X=PEEK(1944)+1:Y=PEEK(1946)
310 IFML=1THENML=2:LOAD F$+"/C.ML",DV,1
320 REM
330 REMIFX=2THENPRINT"[144]O":GOTO452
340 REMIFX=12THENPRINT"O"
345 PRINTVT$(23)"    "
350 PRINTVT$(24)"YOU HAVE"LV+1;:IFLV=0THENPRINT"LIFE TO LIVE."
352 IFLV>0THENPRINT"LIVES TO LIVE.":GOSUB1750
360 J=PEEK(56320):IFJ<>127THEN375
370 Q=PEEK(54272+(1023+X+(Y*40))):POKE54272+(1023+X+(Y*40)),ABS((Q)-1):GOTO360
375 PRINTVT$(23)"PRESS 'Q' AT ANY TIME TO QUIT          "
380 FORT=54272TO54295:POKET,0:NEXT:POKE54296,15
390 AD=1*16+0:SR=15*16+2
400 POKE54284,AD:POKE54285,SR:POKE54282,0:POKE54281,255:IFJ<>127THEN430
405 GETT$:IFT$="Q"THENGOSUB4000
410 IFPEEK(56320)=127ANDD<>2THEN405
420 J=PEEK(56320)
430 IFJ=119THENX1=1023+X+1:X2=Y*40:IFPEEK(X1+X2)<5ORPEEK(X1+X2)=82THEN540
440 IFJ=123THENX1=1023+X-1:X2=Y*40:IFPEEK(X1+X2)<5ORPEEK(X1+X2)=82THEN540
450 IFJ=126THENX1=1023+X:X2=Y-1:X3=X2*40:IFPEEK(X1+X3)=1THEN540
460 IFJ=125THENX1=1023+X:X3=(Y+1)*40:IFPEEK(X1+X3)=1ORPEEK(X1+X3)=32THEN540
470 IFJ=119THENX1=1023+X+1:X2=Y*40:IFPEEK(X1+X2)=32ORPEEK(X1+X2)=99THEN540
480 IFJ=123THENX1=1023+X-1:X2=Y*40:IFPEEK(X1+X2)=32ORPEEK(X1+X2)=99THEN540
490 IFJ=111THENCH=32:GOTO690
500 IFD<>2THEN410
510 IFD=2ANDSM=.THENJ=126:GOTO540
520 IFSM=1THEN1100
530 GOTO410
540 IFD=2ANDJ<>126THEND=.:SM=.
550 X1=1023+X:X2=Y*40:X3=X1+X2:POKEX3,CH:POKE54272+X3,CL
560 IFJ=119THENX=X+1
570 IFJ=123THENX=X-1
580 IFJ=126THENY=Y-1
590 IFJ=125THENY=Y+1
600 X3=1023+X+Y*40:CH=PEEK(X3):CL=PEEK(54272+X3)
610 POKE54283,.:POKE54280,.
620 POKE54283,W(CH,1):POKE54280,W(CH,2):POKE54283,ABS(W(CH,1)-1)
630 OK=PEEK(X3)
640 IFCH=3THENCH=5:CL=9
650 POKEX3,15:POKEX3+54272,0:IFOK<>32ANDD<>1THEN410
660 IFOK=2ORD=2THEND=2:GOTO1070
670 IFOK=32THEND=1:J=125:POKE54283,21:POKE54280,Y*9:POKE54283,20:GOTO540
680 IFCH=99THEND=0:GOTO410
690 X1=1023+X:X2=Y*40:GOSUB1110:FORT=65TO73:POKEX1+X2,T:FORH=1TO80:NEXT:NEXT
700 POKE54283,0
710 IFOK=3THEN750
720 IFOK=19THEN750
730 X1=1023+X:X2=Y*40:X3=X1+X2:POKEX3,CH:POKE54272+X3,CL
740 GOTO1120
750 REM
760 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO670
770 IFOK<>19THEN1120
780 IFPN=TPTHEN1040
790 LV=LV+1:POKE53281,76:PRINTOO$"YOU MAY ADVANCE TO THE NEXT LEVEL[146]!"
800 PN=PN+1:F$="MAZE "+STR$(PN):GOTO210
810 LV=LV+1:POKE53281,76:F$="MAZE "+STR$(PN):GOTO210
820 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO670
830 IFOK<>19THEN1120
840 POKE53281,76:PRINTOO$"YOU DESERVE TO PLAY THE NEXT LEVEL[146]!"
850 JP=2:F$="MAZE 3":LV=LV+1:GOTO210
860 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO670
870 IFOK<>19THEN1120
880 POKE53281,76:PRINTOO$"LETS SEE IF YOU CAN CONQUER THIS..."
890 JP=3:F$="MAZE 4":X=12:Y=20:CH=1:CL=0:LV=LV+1:GOTO220
900 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO670
910 IFOK<>19THEN1120
920 POKE53281,76:PRINTOO$"YOU MAY ADVANCE TO A NEW LEVEL![146]"
930 LV=LV+1:JP=4:F$="MAZE 5":GOTO210
940 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO670
950 IFOK<>19THEN1120
960 POKE53281,76:PRINTOO$"YOU MAY ATTEMPT ANOTHER LEVEL![146]"
970 LV=LV+1:JP=5:F$="MAZE 6":GOTO210
980 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO670
990 IFOK<>19THEN1120
1000 POKE53281,76:PRINTOO$"TRY THIS NEXT LEVEL![146]"
1010 LV=LV+1:JP=6:F$="MAZE 7":GOTO210
1020 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO670
1030 IFOK<>19THEN1120
1040 PRINT"[147]   YOU HAVE WON... BUT NOT CONQUERED!"
1050 PRINT:PRINT"            I WILL RETURN!"
1060 GOSUB1600:FORT=1TO1000:NEXT:GOSUB1840:PRINT"[147]";:GOTO1860
1070 IFPEEK(X3-40)=32THENJ=126:POKE54283,21:POKE54280,Y*9:POKE54283,20:GOTO410
1080 IFPEEK(X3-40)=99THEND=.:J=126:GOTO540
1090 J=PEEK(56320):IFJ=119ORJ=123THENSM=1:GOTO430
1100 J=111:GOTO490
1110 POKE54283,129:POKE54280,5:RETURN
1120 IFLV=.THEN1870
1130 POKE53281,76:PRINTOO$"YOU'RE SLIPPING AWAY FAST[146]!"
1140 FORX=1TO2500:NEXT
1150 LV=LV-2:GOTO810
1160 POKE56334,PEEK(56334)OR1:POKE53272,(PEEK(53272)AND240)+12
1170 IFPEEK(12288)=60THEN1210
1180 ML=8:SYS57812"PARTS",DV:POKE780,0:POKE781,0:POKE782,48:SYS65493:GOTO5
1190 FORI=.TO255:FORJ=.TO7:GET#1,A$:POKE12288+J+I*8,ASC(A$+CHR$(.)):NEXTJ,I
1200 CLOSE2
1210 PRINT"[147][144]";:JQ=56320:POKE198,0:SW=12:POKE53281,0:POKE53280,0:JP=0:MZ=7
1220 IF GA=1THEN1560
1240 PRINT"INSERT COIN"
1250 CQ=CQ+1:FORG=1TOSW:GETA$:IFA$=""ANDPEEK(JQ)=127THENNEXT
1260 IFA$<>""ORPEEK(JQ)<>127THEN1330
1270 IFCQ=1ORCQ=9THENPRINT"[144]";:GOTO1240
1280 IFCQ=2ORCQ=8THENPRINT"[151]";:GOTO1240
1290 IFCQ=3ORCQ=7THENPRINT"[152]";:GOTO1240
1300 IFCQ=4ORCQ=6THENPRINT"[155]";:GOTO1240
1310 IFCQ=5THENPRINT"";:GOTO1240
1320 CQ=1:SW=ABS(SW)-1:GOTO1270
1330 POKE53281,12:POKE53280,12:PRINT"[147]"
1335 POKE214,11:PRINT:PRINTTAB(13)"O THANK YOU[146] O":GOSUB1860:GOSUB1800
1340 IFGA=1THENFORG=1TO1000:NEXT:GOTO1530
1350 PRINT"[147]":POKE214,3:PRINT:PRINTTAB(8)"LOADSTAR AND RON COFFEN
1360 [151]214,5:[153]:[153][163]15)"PRESENT":[129]G[178]1[164]2500:[130]
1370 [129]T[178].[164]24:[151]54272[170]T,0:[130]
1380 [153]:[153]"LOADPRINTGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG"
1390 [153]"VERIFY     EEE  E    E
1400 PRINT"    E   E E    E
1410 [153]"    EEEEE E    E
1420 PRINT"    E   E E    E
1430 [153]"    E   E EEEE EEEE
1440 PRINT
1450 PRINT
1460 PRINT"           EEE  E E  EEE E   EEE  EEE
1470 [153]"          E    E E E  E  E   E   E
1480 PRINT"           EE  E   E  E  E   EE   EE
1490 [153]"             E E   E  E  E   E      E
1500 PRINT"          EEE  E   E EEE EEE EEE EEE
1510 [153]:[153]"PRINTPRINTGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG"
1520 [141]1710
1530 [153]"";:[153]"           PRESS FIRE TO PLAY"
1535 [153]"";:[153]"      OR "[199](34)"Q"[199](34)" TO RETURN TO MAIN MENU"
1540 [153]"                   STOPOO"
1545 [161]T$:[139]T$[178]"Q"[167]4040
1550 [139][194](56320)[178]127[167]1545
1560 :X1[178]1043:X2[178]920:[141]1840:[129]T[178]65[164]73:[151]X1[170]X2,T:[129]H[178]1[164]60:[130]:[130]
1570 X1[178]1044:X2[178]920:[141]1840:[129]T[178]65[164]73:[151]X1[170]X2,T:[129]H[178]1[164]60:[130]:[130]
1580 [141]1640:[137]140
1590 [144]
1600 [141]1860:[143]"TANTANTAN LAST XTANTANTAN"
1610 [151]54296,15:[151]54277,8:[151]54278,255:[151]54276,23:F1[178]10:[129]Z[178]1[164]24:F2[178]30
1620 [151]54273,F1:[129]Y[178]1[164]10:[151]54287,F2:F2[178]F2[172]1.01:[130]:F1[178]F1[170]8:[130]:[151]54296,0
1630 [142]
1640 [141]1860:[143]"TANTANTAN HYPER TANTANTAN"
1650 [151]54296,15:[151]54277,8:[151]54278,255:[151]54276,21:F1[178]2:[129]Z[178]1[164]24:F2[178]80
1660 [151]54273,F1:[129]Y[178]1[164]5:[151]54287,F2:F2[178]F2[173]1.1:[130]:F1[178]F1[170]9:[130]:[151]54296,0
1670 [142]
1680 [141]1860
1690 [151]54296,15:[151]54277,8:[151]54278,255:[151]54276,85:F1[178]100:F2[178]230:[129]Z[178]1[164]77
1700 [151]54272,F1:[151]54287,F2:F2[178]F2[171]2:F1[178]F1[172].99:[130]:[151]54296,0:[142]
1710 [143]
1720 [151]54296,15:[151]54277,15:[151]54298,17:[151]54276,19:[151]54287,64:[129]N[178]1[164]3
1730 [129]F[178]1[164]255[169]4:[151]54273,F:[130]F
1740 [129]F[178]255[164]1[169][171]2.5:[151]54273,F:[130]F:[130]N:[151]54296,0:[142]
1750 [141]1860
1760 [151]54296,15:[151]54277,15:[151]54286,67:[151]54287,12:[151]54276,21
1770 [129]F[178].[164]255[169]2:[151]54273,F:[130]F
1780 [129]F[178]255[164]0[169][171]2:[151]54273,F:[130]:[142]
1790 J[178][194](56320):[142]
1800 :
1810 Q[178]50:F2[178]150:[151]54296,15:[151]54277,4:[151]54278,12:[129]Z[178]1[164]50
1820 F1[178][181](100[172][187](1))[170]10:[151]54276,23:[129]T[178]1[164]Q:[130]:[151]54273,F1:[151]54287,F2
1830 [151]54276,20:Q[178]Q[171]1:F2[178]F2[171]3:[130]:[151]54273,30:[142]
1840 [141]1860:[151]54284,16:[151]54285,242:[151]54296,15:[151]54283,129:[151]54280,5
1850 [142]
1860 [129]G[178]54272[164]54296:[151]G,0:[130]:[142]
1870 [153]"LOAD              P GAME OVERWAIT P":[141]1680
1871 [141]6000:[153]"LOAD     CHOOSE WITH KEY OR JOYSTICK:
1872 POKE214,4:PRINT:PRINTTAB(3)"[144]USE THE SAME MAZE DISK? (Y/N)
1873 [151]214,4:[153]:[153][163]28)"YSTOP/N":[153]"":T$[178]"Y":[137]1875
1874 [151]214,4:[153]:[153][163]28)"STOPY/N":[153]"":T$[178]"N"
1875 [161]Z$:J[178][194](56320):[139]J[178]123[167]1873
1876 [139]Z$[178]"Y"[176]Z$[178]"N"[167]T$[178]Z$:[137]1879
1877 [139]J[178]119[167]1874
1878 [139]J[179][177]111[167]1875
1879 [151]268,0:[139]T$[178]"Y" [167][151]268,50:[151]267,TP
1880 [156]:[140]:GA[178]1::[151]54296,0
1881 DV[178][194](186):[139]DV[179]8[167]DV[178]8
1882 [137]1210
1980 [143] *** # MAZES ON DISK
1990 :
2000 [141]2500:[143] *** SET M LOADS
2005 [139] KM [167] [142]
2010 [129]T[178]1[164]100:[151]53280,0:[151]53281,0
2020 RN$[178]"MAZE "[170][196](T)[170]".ML"
2030 [152]15,"R0:"[170]RN$[170]"=0:"RN$
2040 [132]15,ER
2050 [139] ER[178]62 [167]2400:[143] *GD EX*
2060 [139] ER[179][177]63[167]3000:[143] *D ERR *
2070 [151]646,T:[153][163]16)"MAZE"T
2080 [130] T:[144]
2390 [143] *END OF MAZES ***
2400 [139] T[178]1[167] [153]"NO MAZES LOADED!!!":[129]T[178]1[164]2000:[130]:GA[178]1:[137]1210
2410 [160]15:[153]"LOAD"
2420 TP[178]T[171]1:[142]
2500 KM[178]0: [139] [194](268)[178]50[167] KM[178][171]1:TP[178][194](267):[142]
2501 [151]53280,2:[151]53281,2:[153]"LOAD    MAKE READY, DARING MAZE MONGER..."
2502 [153]"     INSERT THE DISK WITH MAZES ON IT"
2505 [153]"        AND PRESS THE FIRE BUTTON"
2507 [139][194](56320)[178]127 [167]2507
2510 [159]15,DV,15:[153]"LOAD          MAZES ON THIS DISK:"
2520 [142]
3000 [153]"LOADDISK ERROR!":T[178]1:[137]2400
4000 [153]"ARE YOU SURE YOU WANT TO QUIT?(Y/N)"
4010 [161]T$:[139]T$[179][177]"Y"[175]T$[179][177]"N"[167]4010
4020 [139]T$[178]"Y"[167]4040
4023 [153]"PRESS 'Q' AT ANY TIME TO QUIT          "
4025 [142]
4030 [143] EXIT ***
4040 [153]"LOAD":[151]52,160:[151]56,160:[151]53272,([194](53272)[175]240)[176]4:[151]268,0
4050 [147]"AS MENU",DV
5000 [134]VT$(24):VT$(0)[178]"":[129]T[178]1[164]24:VT$(T)[178]VT$(T[171]1)[170]"":[130]
5001 DV[178][194](186):[139]DV[179]8[167]DV[178]8
5002 [142]
6000 Q0[178]15::[153]"LOAD":[151]214,11:[153]:[153][163]Q0)"PSTOPLAY AGAIN"
6001 [153][163]Q0[170]4)"OR
6002 PRINTTAB(Q0+3)"Q[144]UIT
6003 [151]198,0:[146]198,1:[161]Z$:[139]Z$[178]"Q"[167]4040
6004 [142]
9999 [128]
10000 D[178][194](186):N$[178]"0:ALL SMILES":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]